home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / docs / hyper / MusicBase_2.25.lha / MusicBase_2.25 / InstallEnglish next >
Text File  |  1999-10-21  |  2KB  |  80 lines
  1.  
  2. (set sdir (pathonly @icon))
  3.  
  4. (message
  5. "\n\n\n\nThis is install script for MusicBase ver.2.25\n01.11.99\n\n"
  6.                          "Internet version:\n"
  7.                 "http://musicbase.plukwa.pdi.net\n"
  8.  
  9. )
  10.  
  11. (set ID_dest (askdir
  12.       (prompt "                    Where should MusicBase be installed?                    (drawer called MusicBase will be created)")
  13.       (help "Select a drawer where you want to install MusicBase")
  14.       (default @default-dest)
  15.    )
  16. )
  17.  
  18. (set @default-dest ID_dest)
  19. (makedir (tackon ID_dest "MusicBase"))
  20. (set ID_dest (tackon ID_dest "MusicBase"))
  21. (set @default-dest ID_dest)
  22.  
  23. (working ("Copying MusicBase"))
  24. (copyfiles
  25.    (source (tackon sdir "English") (infos))
  26.    (dest ID_dest)
  27.    (all)
  28.    (help @copyfiles-help)
  29. )
  30.  
  31. (working ("Copying readme file"))
  32. (copyfiles
  33.    (source (tackon sdir "MusicBase.readme"))
  34.    (dest ID_dest)
  35.    (help @copyfiles-help)
  36. )
  37.  
  38. (working ("Copying menu file"))
  39. (copyfiles
  40.    (source (tackon sdir "Menu.guide"))
  41.    (dest ID_dest)
  42.    (help @copyfiles-help)
  43. )
  44.  
  45. (working ("Copying author picture file"))
  46. (copyfiles
  47.    (source (tackon sdir "That'sMe!"))
  48.    (dest ID_dest)
  49.    (help @copyfiles-help)
  50. )
  51.  
  52. (makedir (tackon ID_dest "Data"))
  53. (delete ("Data.info"))
  54.  
  55. (set ID_dest (tackon ID_dest "Data"))
  56.  
  57. (working ("Copying data text files"))
  58. (copyfiles
  59.    (source (tackon sdir "Data"))
  60.    (dest ID_dest)
  61.    (all)
  62.    (help @copyfiles-help)
  63. )
  64.  
  65. (set ID_dest (tackon ID_dest "//"))
  66. (working ("Copying info file"))
  67. (copyfiles
  68.    (source (tackon sdir "Data/MusicBase.info"))
  69.    (dest ID_dest)
  70.    (help @copyfiles-help)
  71. )
  72.  
  73. (exit
  74. "\n \n \n \nHave fun with MusicBase!\nCreate with me this guide!\nSend me some music texts!\n\n"
  75.                          "Internet version:\n"
  76.                  "http://musicbase.plukwa.pdi.net\n"
  77.  
  78. (quiet)
  79. )
  80.